put the date && "(" & timezone & ")" into card field "Local Date"
get the time
convert it to secs
add zfactor to it
convert it to date
put it && "(UTC)" into card field "Zulu Date"
end mouseUp
-- part 12 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=359 top=198 right=216 bottom=470
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Local Date
-- part 14 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=359 top=220 right=238 bottom=470
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Zulu Date
-- part 15 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=129 top=228 right=277 bottom=172
-- title width / last selected line: 0
-- icon id / first selected line: 20098 / 20098
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
visual effect iris close
go home
end mouseUp
-- part 16 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=24 top=228 right=277 bottom=64
-- title width / last selected line: 0
-- icon id / first selected line: 17343 / 17343
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Code
----- HyperTalk script -----
on mouseUp
open The Boss:" Work Desk":CODE:Morse1.1
end mouseUp
-- part 17 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=76 top=228 right=276 bottom=118
-- title width / last selected line: 0
-- icon id / first selected line: 17343 / 17343
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: TNC
----- HyperTalk script -----
on mouseUp
open The Boss:Comms:Packet:TNC2term
end mouseUp
-- part 18 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=38 top=152 right=174 bottom=105
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Contest
----- HyperTalk script -----
on mouseUp
go to stack "Contester"
end mouseUp
-- part 21 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=4 top=179 right=196 bottom=36
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
visual effect iris open
push this card
go to card id 4282
end mouseUp
-- part 22 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=42 top=179 right=196 bottom=105
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
visual effect iris open
push this card
go to card id 3782
end mouseUp
-- part 23 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=113 top=178 right=196 bottom=186
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
visual effect iris open
push this card
go to card id 3297
end mouseUp
-- part 24 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=112 top=198 right=216 bottom=185
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Calculator
----- HyperTalk script -----
on mouseUp
visual effect iris open
push this card
go to card id 4984
end mouseUp
-- part 25 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=9 top=198 right=216 bottom=78
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: phonetics
----- HyperTalk script -----
on mouseUp
visual effect iris open
push this card
go to card id 4017
end mouseUp
-- part 26 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=203 top=126 right=303 bottom=358
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 128
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Author
-- part 27 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=345 top=45 right=69 bottom=377
-- title width / last selected line: 0
-- icon id / first selected line: 2478 / 2478
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
set the visible of card field "author" to not the visible of card field "author"
end mouseUp
-- part contents for card part 8
----- text -----
07:11 Z
-- part contents for card part 7
----- text -----
19:11 PST
-- part contents for card part 12
----- text -----
3/23/88 (PST
)
-- part contents for card part 14
----- text -----
3/24/88 (UTC)
-- part contents for card part 26
----- text -----
stack Radio by:
Ted Tripp, KE0RI
4588 CR 523
Bayfield, CO 81122
303-884-9366
CIS #76146,1410
@ BBS KD0DI
This stack and collection of stacks is by no means complete. I envision amateur radio stacks which would supplement the ARRL Novice, General, Advanced and Extra Class license manuals.
I find that the Directory stack works very well, once the info is entered (use the Import database button, but prepare your data carefully so it matches the field order in the stack), but HyperCard is painfully slow entering information. Same is true for QSO log and Contester,kbut everyone writes some kind of contest and QSO software!
One more thing, I offer this effort as a free gift to the amateur radio-Macintosh community. I would appreciate comments, suggestions, and more development. However, if anyone out there would like to send me a gift of cash, that would be very nice and much appreciated, out here in the wilds of impoverished SW Colorado.
Ted Tripp, KE0RI
ps: the Boston II font installed in this stack is copyrighted by Charles Maurer, 31 Forsyth Avenue South, Hamilton, Ontario, Canada, L8S 2A4 ($10 shareware fee), but I have modified it to put a slash in the zeros, etc.
I use Stars1.6 as a screen blanker, installed in this stack. As far as I know, it is freeware.